% nori's
input font1base   % special routines

proofing:=1;

vardef char.I =
        setwidth .5em;    % temporary value
        pos1(1.5thickwidth,5);
        pos2(1.1thickwidth,0);
        pos3(1.5thickwidth,2.5);     % temporary value
        x1=x2=x3;                    % straight I
        z3=(.5w,0);             % the botom of 'I' is at the base line
                                % midway between left and right ends.
        y1=capheight;
        y2=.5capheight;

        %  OK now draw 'I'
        stroke(1,2,.1,.24,.24);      % temporary value.
        stroke(2,3,.9,.24,.24);      % temporary value (bottom half)

        labelpos(1,2,3);
enddef;

vardef char.u =
        setwidth .60em;            %temp value
        pos1(.75thickwidth,10);
        pos2(.70thickwidth,10);
        pos3(.65thickwidth,40);
        pos4(.80[thickwidth,thinwidth],75);
        pos5(.95[thickwidth,thinwidth],130);
        pos6(.75thinwidth,180);
        pos7(.80thinwidth,190);
        pos8(.80thinwidth,190);
        %  coordinate information

        x1l=.075em;
        x7=w-x1l;
        y1=y7=xheight;
        x1=x2;
stop;   x6=x7=x8;
       
        % left curve
        y2=.30xheight; dz2=(0,-1);    % going down at z2
        x3=.75[x4,x2]; y3=.75[y2,y4];
        x4r=.5[x2r,x6r];  y4l=-.05xheight;
        dz4=(1,0);      % rightward

        % right curve
        x5=.70[x4,x6];  y5=.3[y4,y6];
        y6=.33xheight;  dz6=(0,1);      % upward at z6
        y8=0;
   % now draw the line
        stroke(1,2,.3,.05,.05);     %  temp values.
        curve(2,3,4);
        curve(4,5,6);
        stroke(6,7,.7,.05,.05);
        stroke(6,8,.5,.05,.05);
        
      labelpos(1,2,3,4,5,6,7,8);
enddef;

%test.normal(char.I);        % "I" with normal params.
%test.bold(char.I);
%test.boldx(char.I);

test.normal(char.u);
test.bold(char.u);
test.boldx(char.u);

test(char.I);
test(char.u);

end